home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / ahmsyscm / _setup.1 / AHMTTrialRun.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-11-12  |  1.8 KB  |  57 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1998 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'AHMTTrialRun.pas' rev: 3.00
  6.  
  7. #ifndef AHMTTrialRunHPP
  8. #define AHMTTrialRunHPP
  9. #include <AHMSystem.hpp>
  10. #include <Classes.hpp>
  11. #include <Windows.hpp>
  12. #include <SysUtils.hpp>
  13. #include <SysInit.hpp>
  14. #include <System.hpp>
  15.  
  16. //-- user supplied -----------------------------------------------------------
  17.  
  18. namespace Ahmttrialrun
  19. {
  20. //-- type declarations -------------------------------------------------------
  21. class DELPHICLASS TAHMTrialRun;
  22. class PASCALIMPLEMENTATION TAHMTrialRun : public Ahmsystem::TAHMSystemsComponent 
  23. {
  24.     typedef Ahmsystem::TAHMSystemsComponent inherited;
  25.     
  26. private:
  27.     Word FYear;
  28.     Word FMonth;
  29.     Word FDay;
  30.     Classes::TNotifyEvent FOnExpired;
  31.     Classes::TNotifyEvent FOnNotExpired;
  32.     
  33. public:
  34.     __fastcall virtual TAHMTrialRun(Classes::TComponent* AOwner);
  35.     virtual void __fastcall Loaded(void);
  36.     bool __fastcall Check(void);
  37.     
  38. __published:
  39.     __property Word EndYear = {read=FYear, write=FYear, nodefault};
  40.     __property Word EndMonth = {read=FMonth, write=FMonth, nodefault};
  41.     __property Word EndDay = {read=FDay, write=FDay, nodefault};
  42.     __property Classes::TNotifyEvent OnExpired = {read=FOnExpired, write=FOnExpired};
  43.     __property Classes::TNotifyEvent OnNotExpired = {read=FOnNotExpired, write=FOnNotExpired};
  44. public:
  45.     /* TComponent.Destroy */ __fastcall virtual ~TAHMTrialRun(void) { }
  46.     
  47. };
  48.  
  49. //-- var, const, procedure ---------------------------------------------------
  50.  
  51. }    /* namespace Ahmttrialrun */
  52. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  53. using namespace Ahmttrialrun;
  54. #endif
  55. //-- end unit ----------------------------------------------------------------
  56. #endif    // AHMTTrialRun
  57.